home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS078A.dsk / STATISTICS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  25 lines
  1. 5  REM *********************
  2. 6  REM      STATISTICS
  3. 7  REM      M.WIDMANN
  4. 8  REM *********************
  5. 9  REM 
  6. 10  TEXT : CALL  -936: PRINT : PRINT 
  7. 20  VTAB 3: HTAB 10: INVERSE : PRINT "**STATISTICS**": NORMAL : POKE 34,4: PRINT 
  8. 21  PRINT : PRINT "SELECT METHOD:": PRINT : PRINT "ENTER'0'FOR POPULATION(DATA REPRESENTS": PRINT "TOTAL POPULATION": PRINT : PRINT "ENTER'1'FOR SAMPLE(DATA REPRESENTS": PRINT "ONLY PART OF THE TOTAL POPULATION)": PRINT 
  9. 22  INPUT "WHICH(0 OR 1)?";S
  10. 29  CALL  -936: PRINT "SELECT DATA TYPE:"
  11. 30  PRINT : PRINT "ENTER'0'FOR GROUPED DATA (E.G.TO DETER-": PRINT "MINE THE AVG.AGE OF KIDS,YOU WOULD": PRINT "GROUP THE DATA INTO NO.OF KIDS WITH AGE": PRINT "3,NO.WITH AGE 5,ETC. UNDER'ITEM',ENTER"
  12. 31  PRINT "THE AGE,AND UNDER'FREQU.'ENTER THE": PRINT "CORRESPONDING NO.OF KIDS": PRINT : PRINT "ENTER'1'FOR UNGROUPED DATA": PRINT : INPUT "WHICH(0 OR 1)?";K
  13. 50  PRINT : PRINT 
  14. 70  PRINT : INPUT "NUMBER OF OBSERVATIONS? ";N
  15. 72  PRINT 
  16. 90 R = 0:M = 0:P = 0: IF K = 1  THEN  GOTO 230
  17. 130  FOR I = 1 TO N: PRINT "ITEM,FREQUENCY ";I;: INPUT "? ";A,B:R = R +B *A:P = P +B:M = M +B *A ^2: NEXT I
  18. 200 R = R/P:V = (M -P *R ^2)/(P -S)
  19. 220  GOTO 310
  20. 230  FOR I = 1 TO N: PRINT "ITEM ";I;: INPUT "? ";D:P = P +D:M = M +D ^2: NEXT I
  21. 290 R = P/N:V = (M -N *R ^2)/(N -S)
  22. 310  PRINT 
  23. 320  HTAB 10: PRINT "MEAN.........:";R: HTAB 10: PRINT "VARIANCE.....:";V: HTAB 10: PRINT "STD.DEVIATION:"; SQR(V): PRINT 
  24. 350  INPUT "MORE DATA(Y,N)?";X$: IF X$ = "Y"  THEN  GOTO 10
  25. 360  TEXT : CLEAR : HOME : END